inherited FRM_PesquisaPrescritor: TFRM_PesquisaPrescritor
  Left = 524
  Top = 236
  ClientWidth = 616
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited gbPadrao: TAdvGroupBox
    Width = 616
    inherited edtPesquisar: TAdvEdit
      Left = 5
      Width = 606
      OnKeyDown = edtPesquisarKeyDown
    end
    inherited GridPesquisar: TJvDBGrid
      Width = 610
      Columns = <
        item
          Expanded = False
          FieldName = 'COD_PRESCRITOR'
          Title.Alignment = taCenter
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'DESCRICAO'
          Title.Alignment = taCenter
          Title.Caption = 'Descri'#231#227'o do Prescritor'
          Width = 198
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PROFISSAO'
          Title.Alignment = taCenter
          Title.Caption = 'Profiss'#227'o'
          Width = 198
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GRUPO'
          Title.Alignment = taCenter
          Title.Caption = 'Grupo'
          Width = 199
          Visible = True
        end>
    end
    inherited pnlRodape: TPanel
      Width = 610
      inherited btnConfirmar: TAdvGlowButton
        Left = 442
      end
      inherited btnCancelar: TAdvGlowButton
        Left = 534
      end
    end
    inherited pnlTitulo: TPanel
      Width = 610
      Caption = 'Pesquisar Lista de Prescritores'
    end
  end
  inherited sqlPesquisar: TSQLQuery
    SQL.Strings = (
      'select'
      ' a.cod_prescritor,'
      ' a.descricao,'
      ' c.descricao as profissao,'
      ' b.descricao as grupo'
      'from f_prescritor a'
      
        'left join f_prescritor_grupo b on (b.cod_grupo = a.lig_cod_grupo' +
        ')'
      'left join profissao c on (c.cod_profissao = a.lig_cod_profissao)'
      'where a.situacao = '#39'True'#39)
  end
  inherited cdsPesquisar: TClientDataSet
    object cdsPesquisarCOD_PRESCRITOR: TIntegerField
      FieldName = 'COD_PRESCRITOR'
      Required = True
    end
    object cdsPesquisarDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsPesquisarPROFISSAO: TStringField
      FieldName = 'PROFISSAO'
      Size = 100
    end
    object cdsPesquisarGRUPO: TStringField
      FieldName = 'GRUPO'
      Size = 100
    end
  end
end
